#-----------------------------------------------------------#
#  죄와벌++ 이율배반 										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 토벌중 Version 1.1
#--- [주의 사항] --------------------------------------------#
# 1. 이 스크립트는 이하의 이용 규정에 따라 배포하고 있습니다. 	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
#토벌중 처리
sub ws_st {
	if(!$tm && !$ck){

		$log .="$date $cmp[$nation] 를 탐색중입니다<br>\n";

		# NPC(산령 온갖 도깨비) read
		require './inc/ore_sub-npc_2.cgi';
		local $v=int(rand(7));
		&ck_ne_2;

		$log .="<hr size=1 noshade>\n";

		$log .="$cmp[$nation] 에 만연하는 $tnm 를 발견했다! <br>\n";

		$log .="전투 태세를 취합니다! <br>\n";

		$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
		$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
		$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
		$log2 .=qq|<input type="hidden" name="cmd" value="-1"><input $button1 type="submit" value=" 전투 돌입! ">$td_end</form>\n|;

		$tm=40;
		$ck=1;
	}elsif($ck){

		# 전투 처리 read
		require './inc/ore_sub-battle.cgi';

		if(!$b_n && !$tlr){
			$tm = 0;
			$ck = 0;
			$nation = 0;#토벌
			$type='';

			$log .="전투중에 버그가 발생했습니다! 강제적으로 메인 화면으로 돌아갑니다<br>\n";
		}

		if($tm==40 && $cmd==-1){
			$tm=55;
			$log .="<p>$tnm 와의 대결! </p><p>어떻게 합니까? </p>\n";
			$log .="<p>산령 온갖 도깨비 스테이터스 - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";
		}

		if($tm==55){

			if($cmd==10){

				my $btp = $ag + int(rand($lv)*0.8);
				my $bte = $tag+ int(rand($tlv)*0.8);

				if($btp>=$bte){
					$log .="$nm 는 탈토 (와) 같이 도망갔다···<br>평가가 현저하게 내렸다<br>\n";
					$tm=0;
					$v = int(2 + rand(4));
					$rank_exe-=$v;

					$sol=0;
					$tnm='';
					$ck=0;
					$nation=0;#토벌
					$type='';

					$vv = int(rand(2));
					if(!$vv){
						$we-- if($we>0);
					}
				}else{
					$log .="$nm 는 탈토 (와) 같이 도망갔다···<br>그러나!　$tnm 에 따라 잡혀 버렸다! <br>\n";
					$tm=65;
					$rank_exe-=1;
				}

			}elsif($cmd==20){
				$log .="$tnm 의 토벌을 행하는 일에! <br>\n";
				$tm=65;
				$rank_exe+=1;
			}

		}elsif($tm==65){

			$log .="진지한 승부 개시! <br>\n";
			$tm=75;

		}elsif($tm==75){

			&bt_cm;

			if($thp<1){
				# 획득금
				$G =int(rand(200))+((500*$tlv)-($lv*50));
				$G =1 if($G<1);
				$G =int(rand(500))+1500 if($G>2000);
				$gold +=$G;
				# 경험치
				$E = int((($tlv*2)+$tua+$tud+$tag)*(rand($lv/10)+4.5))-$lv*2;
				$E = int(rand(500))+1800 if($E>2000);
				$exe+=$E;

				$thp=0;
				$bst ='';
				$bt =0;
				$log .="$nm 는 $tnm 를 넘어뜨렸다! <br>\n";
				$log .="$G 의 돈과 $E 의 경험치를 얻었다! <br>\n";
				$log .="<br>\n";

				# 상금(자국 우위)
				if($nation==$camp){
					$G =int($my_cg/(rand(6)+15));
					$G =int(rand(500))+1500 if(int(2000>=$G));
					$G =int(rand(1500))+4000 if(int(5000<=$G));
				}else{
					if($nation==1){$G =int($cg1/(rand(11)+20));}
					elsif($nation==2){$G =int($cg2/(rand(11)+20));}
					elsif($nation==3){$G =int($cg2/(rand(11)+20));}
					elsif($nation==4){$G =int($cg2/(rand(11)+20));}
					elsif($nation==5){$G =int($cg2/(rand(11)+20));}

					$G =int(rand(500))+500 if(int(1000>=$G));
					$G =int(rand(1000))+2500 if(int(3500<=$G));
				}

				$gold+=$G;

				$tsol=int($tsol/2);

				$log .="$cmp[$nation]로부터 $G 의 상금을 얻었다! <br>\n";#토벌

				$V =int(rand(4));
				$sol_lv-=$V;
				$rank_exe+=int($V*2)+5;

				# 습득물 처리 1
				if(int(rand(200))==0){
					&syutoku1;
				}else{
					$sol=0;
					$tnm='';
					$ck = $tm = 0;
					$nation=0;
					$type='';
				}

				$we++;
				if($we>250){
					$log .="에르타니아의 땅에 만연하는 산령 온갖 도깨비의 토벌의 격려보다 $nm 는 $sogo_p[2] 의 칭호를 내려 주셨다! <br>\n";
					$sogo =2;
					$we =0;
				}

			}elsif($hp<1){

				$bst ='';
				$bt =0;
				$ck =0;
				$hp =0;
				$G=int(rand(10))+1;
				$E=int(rand(5))+1;
				$gold+=$G;
				$exe+=$E;
				$log .="당신은 $tnm 에 지고 떠났다…<br>\n";
				$log .="$G 의 돈과 $E 의 경험치를 얻었다<br>\n";
				$log .="<p></p>\n";

				$sol=int($sol/2);

				$rank_exe-=25;
				$log .="산령 온갖 도깨비에 안고지는 일에 맞는다고 하는 불명예스러운 패배에,<br>당신에 대한 평가가 현저하게 저하했다<br>\n";
				if($rank_exe<1){
					$rank--;
					$rank=1 if($rank<1);
					$next_rank=int(($rank*$rank)*3);
					$v=$next_rank-10;
					$rank_exe=$v;
					$log .="하지메 계급 격하되어 버렸다…<br>\n";
				}

				$sol=0;
				$tnm='';
				$ck= $tm = 0;
				$nation=0;
				$type='';

			}

		}

		# 습득물 처리 2
		if($cmd==40){
			&syutoku2;
		}elsif($cmd ==41){
			$log .="$nm 는 눈치채지 못했던 후리를 해 떠났다······<br>\n";

			$sol=0;
			$tnm='';
			$ck = $tm = 0;
			$nation=0;#토벌
			$type='';
		}

		$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
		$log2 .=qq|<td valign="middle">\n| if($mv_mode eq 'pc');
		$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
		if($tsol<1||$sol<1){
			$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
		}if($tm==55){
			$log2 .=qq|<select name="cmd" size="1"><option value="10">도망치는</option><option value="20">싸우는</option>\n|;
			$log2 .=qq|</select>|;
		}elsif($tm==65){
			$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
		}elsif($tm==75){
			&spell_sp;
		}elsif($tm>=100){
			$log2 .=qq|<select name="cmd" size="1"><option value="40">줍는</option><option value="41">가만히 두는</option>\n|;
			$log2 .=qq|</select>|;
		}
		$log2 .=qq|<br>|;#테이블 차이 수정
		$log2 .=qq|<input type="submit" $button1 value="NEXT! ">$td_end</form>\n|;#테이블 추가</tr></table>
	}

	&dat_write;

}

#습득물 처리
sub syutoku1{

	$log .="$tnm 가 소멸한 장소에 무엇인가 떨어지고 있다·····<br>$nm 는 ";

	my $S = int(rand(10)+1);

	# 무기
	if($S == 1){
		$log .="$dg_data[2][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 무기";
		$tm = 110;
	}elsif($S == 2){
		$log .="$dg_data[3][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 무기";
		$tm = 120;
	}elsif($S == 3){
		$log .="$dg_data[4][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 무기";
		$tm = 130;

	# 도구
	}elsif($S == 4){
		$log .="$di_data[1][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 도구";
		$tm = 140;
	}elsif($S == 5){
		$log .="$di_data[2][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 도구";
		$tm = 150;
	}elsif($S == 6){
		$log .="$di_data[3][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 도구";
		$tm = 160;
	}elsif($S == 7){
		$log .="$di_data[4][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 도구";
		$tm = 170;

	# 방어용 기구
	}elsif($S == 8){
		$log .="$df_data[2][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 도구";
		$tm = 180;
	}elsif($S == 9){
		$log .="$df_data[3][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 도구";
		$tm = 190;
	}elsif($S == 10){
		$log .="$df_data[4][1]을 발견했다!!<br><br>장비 하는 경우, 현재 소지하고 있는 도구";
		$tm = 200;
	}
	$log .="(은)는 파기됩니다.<br>어떻게 합니까? <br>";
}

#습득물 처리 2
sub syutoku2{
	$log .="$nm 는 ";

	# 무기 2
	if($tm==110){
		$log .="$dg_data[2][1]";
		$dg_a = 2;
		$dg_cnt=$dg_data[2][3];
	}elsif($tm==120){
		$log .="$dg_data[3][1]";
		$dg_a = 3;
		$dg_cnt=$dg_data[3][3];
	}elsif($tm==130){
		$log .="$dg_data[4][1]";
		$dg_a = 4;
		$dg_cnt=$dg_data[4][3];

	# 도구 2
	}elsif($tm==140){
		$log .="$di_data[1][1]";
		$di_a = 1;
		$di_cnt=$di_data[1][3];
	}elsif($tm==150){
		$log .="$di_data[2][1]";
		$di_a = 2;
		$di_cnt=$di_data[2][3];
	}elsif($tm==160){
		$log .="$di_data[3][1]";
		$di_a = 3;
	}elsif($tm==170){
		$log .="$di_data[4][1]";
		$di_a = 4;
		$di_cnt=$di_data[4][3];

	# 방어용 기구 2
	}elsif($tm==180){
		$log .="$df_data[2][1]";
		$df_a = 2;
		$df_cnt=$df_data[2][3];
	}elsif($tm==190){
		$log .="$df_data[3][1]";
		$df_a = 3;
		$df_cnt=$df_data[3][3];
	}elsif($tm==200){
		$log .="$df_data[4][1]";
		$df_a = 4;
		$df_cnt=$df_data[4][3];
	}

	$log .="(을)를 손에 넣었다!!<br>\n";

	$sol=0;
	$tnm='';
	$ck = $tm = 0;
	$nation=0;#토벌
	$type='';
}





1;
